﻿<Serializable()> _
Public Class clsLibraryHeader

    Private c_LibraryName As String
    Private c_Entries As List(Of clsLibraryEntry)

    Public Property LibraryName() As String
        Get
            Return c_LibraryName
        End Get
        Set(ByVal value As String)
            c_LibraryName = value
        End Set
    End Property

    Public Property Entries() As List(Of clsLibraryEntry)
        Get
            Return c_Entries
        End Get
        Set(ByVal value As List(Of clsLibraryEntry))
            c_Entries = value
        End Set
    End Property

    Public Sub CollapseAll()
        For Each objEntry As clsLibraryEntry In c_Entries
            objEntry.Expanded = False
            objEntry.IsBreadcrumb = False
        Next
    End Sub
End Class
